;; EX-52.scm - From 'How to use the Interpreter' (JMcC)

(let ((n 5)
      (impulse 
       (random (list 
		(lambda () (Impulse.ar (random 2 2.2) 0.3))
		(lambda () (Dust.ar 0.5 0.3))
		(lambda () (Impulse.ar (SinOsc.kr (random 0.05 0.15)
						  (random two-pi) 
						  5 
						  5.2) 0.3))))))
  (Mix 
   (tabulate* 
    5
    (lambda () 
      (let ((delay-time (/ 1 (midi-note->frequency (random-integer 60 90)))))
	(Pan2.ar (CombL.ar (Decay.ar (impulse) 0.04 (PinkNoise.ar 0.2))
			   delay-time delay-time 4) 
		 (random -1 1)))))))
